#!/usr/bin/perl -w

$r = 12.5;
$c = 2 * 3.141592654 * $r;
print $c."\n";
